home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 SRC / Modules / timingmodule.c < prev    next >
Text File  |  1995-12-21  |  1KB  |  92 lines
  1. /*
  2.  * Author: George V. Neville-Neil
  3.  */
  4.  
  5. #include "allobjects.h"
  6. #include "import.h"
  7. #include "modsupport.h"
  8. #include "ceval.h"
  9.  
  10. /* Our stuff... */
  11. #include "timing.h"
  12.  
  13. static object *
  14. start_timing(self, args)
  15.     object *self;
  16.     object *args;
  17. {
  18.     if (!getargs(args, ""))
  19.     return NULL;
  20.  
  21.     INCREF(None);
  22.     BEGINTIMING;
  23.     return None;
  24. }
  25.  
  26. static object *
  27. finish_timing(self, args)
  28.     object *self;
  29.     object *args;
  30. {
  31.     if (!getargs(args, ""))
  32.     return NULL;
  33.  
  34.     ENDTIMING    
  35.     INCREF(None);
  36.     return None;
  37. }
  38.  
  39. static object *
  40. seconds(self, args)
  41.     object *self;
  42.     object *args;
  43. {
  44.     if (!getargs(args, ""))
  45.     return NULL;
  46.  
  47.     return newintobject(TIMINGS);
  48.  
  49. }
  50.  
  51. static object *
  52. milli(self, args)
  53.     object *self;
  54.     object *args;
  55. {
  56.     if (!getargs(args, ""))
  57.     return NULL;
  58.  
  59.     return newintobject(TIMINGMS);
  60.  
  61. }
  62. static object *
  63. micro(self, args)
  64.     object *self;
  65.     object *args;
  66. {
  67.     if (!getargs(args, ""))
  68.     return NULL;
  69.  
  70.     return newintobject(TIMINGUS);
  71.  
  72. }
  73.  
  74.  
  75. static struct methodlist timing_methods[] = {
  76.    {"start", start_timing},
  77.    {"finish", finish_timing},
  78.    {"seconds", seconds},
  79.    {"milli", milli},
  80.    {"micro", micro},
  81.    {NULL, NULL}
  82. };
  83.  
  84.  
  85. void inittiming()
  86. {
  87.     object *m;
  88.  
  89.     m = initmodule("timing", timing_methods);
  90.    
  91. }
  92.